home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / BOMB.TCL < prev    next >
Encoding:
Text File  |  2002-04-04  |  938 b   |  43 lines
  1. #
  2. #   Zustands-▄berwachungs-Script
  3. #   State Watch Script
  4. #
  5. #   Bombe
  6. #
  7. #   created:    15-Jun-2000 Bernd
  8. #               09-Aug-2000 floh    Missile-Aufschlag-Explosion (.iscollided)
  9. #                                16-Jan-2002 peter   Swarm-Missile spezifisches Zeug
  10. #
  11. #   (C) COPYRIGHT 2000 RADONLABS GMBH
  12. #
  13.  
  14. proc bombwatch_normal {} {
  15.  
  16.     if {[.iscollided] == "true"} {
  17.         .announcestate explode
  18.     } elseif {[.iskilled] == "true"} {
  19.         # Bomben koennen u.U. abschiessbar sein
  20.         .announcestate explode
  21.     } elseif {[.isstatetimeover] == "true"} {
  22.         .announcestate burn
  23.     } elseif {[.hastargetchanged] == "true"} {
  24.         .selectnewcommandlist /commandlists/missile/goto
  25.     } 
  26. }
  27.  
  28. proc bombwatch_explode {} {
  29.  
  30.     if {[.isanimfinished] == "true"} {
  31.         .setremoveable true
  32.     }
  33. }
  34.  
  35. proc bombwatch_burn {} {
  36.  
  37.     if {[.isanimfinished] == "true"} {
  38.         .setremoveable true
  39.     }
  40. }
  41.  
  42.  
  43.